home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL31.LIT < prev    next >
Text File  |  1990-01-13  |  940b  |  20 lines
  1. *[FOSSIL31.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB3.BAS                                              *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 42005 SUB CheckCarrier STATIC                                        ' KG061203
  9.       IF ZSubParm = -1 THEN _
  10.          EXIT SUB
  11.       Speedy = ZSubParm
  12.       ZSubParm = 0
  13.       IF ZLocalUser THEN _
  14.          EXIT SUB
  15. 42015 IF Speedy = -10 THEN _
  16.          GOTO 42020
  17.       CALL DelayTime (ZModemInitWaitTime)
  18.       IF INP(ZModemStatusReg) > 127 THEN _
  19.          EXIT SUB
  20.